home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
curlibm
/
curlibm.bas
next >
Wrap
BASIC Source File
|
1995-05-09
|
2KB
|
63 lines
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'
'This Demo is copyrighed by Pierre Fillion 1992
'CURSLIBM (Cursor Libraries Manipulations) will show you:
'How to retreive a cursor from a DLL library and use it in you VB applications.
'How to make cursors animations using the libraried (Moving cursors!)
'Include 2 cursors Libraries (.DLL) with 28 differents animated and simple cursors
'I released the source of this demo to show the use of api calls for cursor
'libraries manipulations. Many hours have been spend to create this demo
'(cursors libraries) to make it public. Feel free to use part of the code as
'long as you send a 15$ minimum donation. If not, delete the whole archive.
'Thanks a lot.
'Pierre Fillion
'8460 Perras Apt1
'Montreal, Quebec
'Canada, H1E 5C7
'Questions, suggestions, want to trade some routines !?? Go Ahead. CIS ID:71162,51
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'NOTES:
'
' 1- The program actually don't restore the form cursor. When you will exit it and
' return in the VB environment, put your cursor on the form frame and look at
' the cursor! To prevent this, just restore the cursor before exiting the demo.
' I didn't fixed the previous note because I found it nice to let you take a
' look at it. Just delete the ' mark before the LastCursor lines in Form_Unload
' 2- The cursors have been created using the Whitewather Ressource Toolkit v3.01a
' included with Turbo Pascal for Windows. After creating them, I added them
' in the DLL. (belive me, I spend many hours to create all the cursors!)
' YOU HAVE NO RIGHTS USING THESE CURSORS OR ANY PARTS OF THE LIBRARIES IF YOU DON'T
' SEND A 15$ MINIMUM FEE TO THE AUTHOR. SEE "README.1ST" FILE.
' I didn't found how to directly load a cursor from the .CUR file without
' accessing it throught a DLL. If you know how to do it, please, drop me a line
' on Compuserve. I'd really like to know. Thanks.
'Turbo Pascal is a registred trademark of Borland Internationnal.
'WRT is copyrighted 1989-91 The Whitewather Group, Inc.
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Type PointType
x As Integer
y As Integer
End Type